inherited FRM_RelInvolucro: TFRM_RelInvolucro
  Left = 316
  Top = 180
  Caption = 'FRM_RelInvolucro'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited rptRelatorio: TRLReport
    DataSource = dsRelatorio
    inherited rlTituloAgrupamento: TRLBand
      inherited rlTitulo: TRLLabel
        Width = 246
        Caption = 'Informa'#231#245'es Sobre o  Registro de Inv'#243'lucro'
      end
      inherited lblEmpresaLicenciada: TRLLabel
        BeforePrint = lblEmpresaLicenciadaBeforePrint
      end
    end
    object rlForma: TRLBand
      Left = 38
      Top = 133
      Width = 718
      Height = 27
      AutoSize = True
      BandType = btHeader
      object rlNomeFormaDESCRICAO: TRLDBText
        Left = 0
        Top = 2
        Width = 307
        Height = 25
        DataField = 'INVOLUCRO_TIPO'
        DataSource = dsRelatorio
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -19
        Font.Name = 'Segoe UI'
        Font.Style = [fsBold]
        ParentFont = False
        Text = 'Tipo Inv'#243'lucro: '
      end
    end
    object rlFormaInfo: TRLBand
      Left = 38
      Top = 160
      Width = 718
      Height = 249
      Borders.Sides = sdCustom
      Borders.DrawLeft = False
      Borders.DrawTop = False
      Borders.DrawRight = False
      Borders.DrawBottom = False
      object RLDBText1: TRLDBText
        Left = 40
        Top = 40
        Width = 234
        Height = 17
        DataField = 'PRIORIDADE'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Prioridade..............................: '
      end
      object RLDBText2: TRLDBText
        Left = 40
        Top = 56
        Width = 225
        Height = 17
        DataField = 'TAMANHO'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Tamanho................................: '
      end
      object RLDBText3: TRLDBText
        Left = 40
        Top = 72
        Width = 208
        Height = 17
        DataField = 'COR_01'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Descri'#231#227'o da Cor 01...........: '
      end
      object RLDBText4: TRLDBText
        Left = 40
        Top = 88
        Width = 208
        Height = 17
        DataField = 'COR_02'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Descri'#231#227'o da Cor 02...........: '
      end
      object RLDBText5: TRLDBText
        Left = 40
        Top = 104
        Width = 271
        Height = 17
        DataField = 'VOLUME_INT_MIN'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Vol. Int. Min............................: '
      end
      object RLDBText12: TRLDBText
        Left = 40
        Top = 24
        Width = 283
        Height = 17
        DataField = 'CLASS_TERAPEUTICA'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Classifica'#231#227'o Terap'#234'utica..: '
      end
      object RLDBText13: TRLDBText
        Left = 40
        Top = 120
        Width = 274
        Height = 17
        DataField = 'VOLUME_INT_MAX'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Vol. Int. Max...........................: '
      end
      object RLDBText14: TRLDBText
        Left = 40
        Top = 136
        Width = 279
        Height = 17
        DataField = 'VOLUME_EXTERNO'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Vol. Externo............................: '
      end
      object RLDBText15: TRLDBText
        Left = 40
        Top = 152
        Width = 279
        Height = 17
        DataField = 'VOLUME_EXTERNO'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Peso Vazio..............................: '
      end
      object RLDBText16: TRLDBText
        Left = 40
        Top = 168
        Width = 279
        Height = 17
        DataField = 'VOLUME_EXTERNO'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Situa'#231#227'o...................................: '
      end
      object RLDBText6: TRLDBText
        Left = 40
        Top = 8
        Width = 266
        Height = 17
        DataField = 'COD_INVOLUCRO'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'C'#243'digo....................................: '
      end
      object RLDBText7: TRLDBText
        Left = 40
        Top = 184
        Width = 227
        Height = 17
        DataField = 'DATA_CAD'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Registro...................................: '
      end
      object RLDBText8: TRLDBText
        Left = 40
        Top = 200
        Width = 271
        Height = 17
        DataField = 'DATA_ALTERACAO'
        DataSource = dsRelatorio
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        Text = 'Ult. Altera'#231#227'o.........................: '
      end
    end
  end
  object sqlRelatorio: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'codigo'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  i.COD_INVOLUCRO,'
      '  i.LIG_COD_INVOLUVRO_TIPO,'
      '  i.LIG_COD_PRODUTO,'
      '  i.LIG_COD_CLASS_TERAPEUTICA,'
      '  i.SITUACAO,'
      '  case'
      '    when i.SITUACAO = '#39'True'#39'  then '#39'ATIVO'#39
      '    when i.SITUACAO = '#39'false'#39' then '#39'INATIVO'#39
      '  end as SITUACAO_DESC,'
      '  i.TAMANHO,'
      '  coalesce(i.VOLUME_INT_MIN,0) as VOLUME_INT_MIN,'
      '  coalesce(i.VOLUME_INT_MAX,0) as VOLUME_INT_MAX,'
      '  coalesce(i.VOLUME_EXTERNO,0) as VOLUME_EXTERNO,'
      '  coalesce(i.PESO_VAZIO,0) as PESO_VAZIO,'
      '  i.PRIORIDADE,'
      '  i.DATA_CAD,'
      '  i.DATA_ALTERACAO,'
      '  t.descricao as involucro_tipo,'
      '  ct.descricao as class_terapeutica,'
      '  c1.descricao as cor_01,'
      '  c2.descricao as cor_02'
      'from F_INVOLUCRO i'
      
        'left join f_involucro_tipo t on (t.cod_involucro_tipo = i.lig_co' +
        'd_involuvro_tipo)'
      
        'left join f_classificacao_terapeutica ct on (ct.cod_classificaca' +
        'o = i.lig_cod_class_terapeutica)'
      'left join cor c1 on (c1.cod_cor = i.lig_cod_cor_01)'
      'left join cor c2 on (c2.cod_cor = i.lig_cod_cor_02)'
      'where i.cod_involucro = :codigo')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 528
    Top = 105
  end
  object dspRelatorio: TDataSetProvider
    DataSet = sqlRelatorio
    Exported = False
    Left = 560
    Top = 105
  end
  object cdsRelatorio: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRelatorio'
    Left = 592
    Top = 105
    object cdsRelatorioCOD_INVOLUCRO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_INVOLUCRO'
      Required = True
    end
    object cdsRelatorioLIG_COD_INVOLUVRO_TIPO: TIntegerField
      FieldName = 'LIG_COD_INVOLUVRO_TIPO'
      Required = True
    end
    object cdsRelatorioLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsRelatorioLIG_COD_CLASS_TERAPEUTICA: TIntegerField
      FieldName = 'LIG_COD_CLASS_TERAPEUTICA'
      Required = True
    end
    object cdsRelatorioSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Required = True
      Size = 5
    end
    object cdsRelatorioSITUACAO_DESC: TStringField
      FieldName = 'SITUACAO_DESC'
      FixedChar = True
      Size = 7
    end
    object cdsRelatorioTAMANHO: TStringField
      FieldName = 'TAMANHO'
      Size = 5
    end
    object cdsRelatorioVOLUME_INT_MIN: TFMTBCDField
      FieldName = 'VOLUME_INT_MIN'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRelatorioVOLUME_INT_MAX: TFMTBCDField
      FieldName = 'VOLUME_INT_MAX'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRelatorioVOLUME_EXTERNO: TFMTBCDField
      FieldName = 'VOLUME_EXTERNO'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRelatorioPESO_VAZIO: TFMTBCDField
      FieldName = 'PESO_VAZIO'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRelatorioPRIORIDADE: TIntegerField
      FieldName = 'PRIORIDADE'
    end
    object cdsRelatorioDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsRelatorioDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRelatorioINVOLUCRO_TIPO: TStringField
      FieldName = 'INVOLUCRO_TIPO'
      Size = 100
    end
    object cdsRelatorioCLASS_TERAPEUTICA: TStringField
      FieldName = 'CLASS_TERAPEUTICA'
      Size = 100
    end
    object cdsRelatorioCOR_01: TStringField
      FieldName = 'COR_01'
      Size = 100
    end
    object cdsRelatorioCOR_02: TStringField
      FieldName = 'COR_02'
      Size = 100
    end
  end
  object dsRelatorio: TDataSource
    DataSet = cdsRelatorio
    Left = 624
    Top = 105
  end
end
